home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD017a.dsk / GAME4.bas < prev    next >
BASIC Source File  |  2003-06-12  |  8KB  |  159 lines
  1. 5 U1 = 0:U2 = 0:C1 = 0:C2 = 0:CZ = 0
  2. 30  GOTO 600
  3. 52  FOR YX = 1 TO 11: IF AZ(YX) >1  THEN  ON AZ(YX) GOSUB 58,58,54,65,72,82,96,60,57,57,58: GOSUB 120: CALL 36361
  4. 53  NEXT : RETURN 
  5. 54 L = 27143: GOSUB 100:X = 100:Y = 135: RETURN 
  6. 57 L = 28146: GOSUB 100:X = 256:Y = 126: RETURN 
  7. 58 L = 29024: GOSUB 100:X = 29:Y = 98: RETURN 
  8. 60 L = 28085: GOSUB 100:X = 220:Y = 140: RETURN 
  9. 65 L = 26883: GOSUB 100:X = 200:Y = 95: RETURN 
  10. 72 L = 26935: GOSUB 100:X = 230:Y = 120: RETURN 
  11. 82 L = 26996: GOSUB 100:X = 30:Y = 120: RETURN 
  12. 96 L = 27088: GOSUB 100:X = 140:Y = 130: RETURN 
  13. 100 LL = L - INT(L/256) *256:LH =  INT(L/256)
  14. 110  POKE 36352,LL: POKE 36353,LH: RETURN 
  15. 120  POKE 36354,X -(X >255) *256: POKE 36355,X >255: POKE 36356,Y: RETURN 
  16. 140  PRINT N$(2);
  17. 145  VTAB  PEEK(37) +1: HTAB 23: CALL  -868: GET A$
  18. 150 Z =  ASC(A$) -64
  19. 152  IF Z =  -51  AND SW = 0  THEN  POKE  -16303,0:SW = 1: GOTO 145
  20. 153  IF Z =  -51  THEN  POKE  -16304,0:SW = 0: GOTO 145
  21. 155  IF Z <1  OR Z >26  THEN 145
  22. 156  IF V$(Z) = "X"  THEN 145
  23. 200  VTAB  PEEK(37) +1: HTAB 23: PRINT V$(Z);
  24. 205  VTAB  PEEK(37) +1: HTAB  PEEK(36) +2: INPUT "";B$
  25. 210  IF B$ = ""  THEN ZZ =  PEEK(37): POKE 37,ZZ -1: GOTO 145
  26. 211  IF Z = 9  THEN  GOSUB 1020:S = 1
  27. 213  IF Z = 17  THEN  GOTO 1140
  28. 215  RETURN 
  29. 250  PRINT N$(3): RETURN 
  30. 600  PRINT N$(76)
  31. 602  PRINT N$(77)
  32. 605 S1 = 0
  33. 608  FOR X = 0 TO 9:AZ(X) = 0:AZ$(X) = "": NEXT 
  34. 610  IF S1 = 0  THEN L = 29167
  35. 612  IF S1 = 1  THEN L = 30175
  36. 614  IF S1 = 2  THEN L = 30513
  37. 616  IF S1 = 3  THEN L = 30712
  38. 620  GOSUB 100: CALL 36400
  39. 622  GOSUB 52
  40. 629  IF U2 = 0  AND U1 >0  THEN  PRINT N$(78);
  41. 630  IF U1 >0  THEN L = 29750: GOSUB 100:X = 110:Y = 110: GOSUB 120: CALL 36361:U2 = 1
  42. 640  GOSUB 140
  43. 641  IF Z = 14  AND S1 = 3  THEN  GOTO 700
  44. 642  IF U1 <1  THEN  PRINT N$(79)
  45. 643  IF U1 >3  THEN  PRINT N$(80): GOTO 1140
  46. 644  IF U2 = 1  THEN  PRINT N$(78);
  47. 646  IF Z = 7  THEN  GOSUB 1000:S = 1: IF GT = 1  THEN GT = 0:S = 0: GOTO 610
  48. 647  IF Z = 4  THEN  GOSUB 1030:S = 1: IF CZ = 1  THEN CZ = 0:S = 0: GOTO 610
  49. 648  IF Z = 12  THEN  GOSUB 997: IF C$ = "PLAN"  THEN  PRINT N$(81): GOTO 640
  50. 649  IF Z = 12  AND C$ = "ANIM"  THEN  PRINT N$(82): PRINT N$(83): GOTO 640
  51. 650  IF Z = 12  AND C$ = N$(68)  THEN  IF H = 0  THEN  PRINT N$(71): GOTO 640
  52. 651  IF Z = 12  AND S1 = 0  THEN  IF C$ = "SHIP"  THEN  PRINT N$(84): GOTO 640
  53. 652  IF Z = 12  AND C$ = N$(68)  THEN  IF T = 0  THEN C$ = "GLAS": GOSUB 1132:S = 1: IF GT = 1  THEN GT = 0:S = 0: PRINT N$(72): GOTO 640
  54. 654  IF Z = 12  AND S = 0  THEN  GOSUB 997: GOSUB 1070: GOTO 640
  55. 660  IF Z = 5  AND S1 = 0  THEN S1 = 3:U1 = U1 +1: GOTO 608
  56. 662  IF Z = 5  AND S1 = 1  THEN S1 = 0:U1 = U1 +1: GOTO 608
  57. 664  IF Z = 23  AND S1 = 0  THEN S1 = 1:U1 = U1 +1: GOTO 608
  58. 666  IF Z = 23  AND S1 = 3  THEN S1 = 0:U1 = U1 +1: GOTO 608
  59. 668  IF Z = 14  AND S1 = 0  THEN S1 = 2:U1 = U1 +1: GOTO 608
  60. 672  IF Z = 19  AND S1 = 2  THEN S1 = 0:U1 = U1 +1: GOTO 608
  61. 675  IF Z = 5  OR Z = 14  OR Z = 19  OR Z = 23  THEN  GOSUB 1080:S = 1:U1 = U1 +1
  62. 677  IF Z = 3  THEN  PRINT N$(85):S = 1
  63. 680  IF Z = 11  THEN  GOSUB 997: IF C$ = "ANIM"  THEN  PRINT "THE ANIMAL ATTACKS YOU WHEN YOU ATTACK  HIM.  THE CREATURE IS MUCH TOO STRONG.": POKE  -16303,0: FOR X = 1 TO 9000: NEXT : POKE  -16304,0: GOTO 1140
  64. 690  IF S = 0  THEN  GOSUB 250
  65. 692 S = 0: GOTO 640
  66. 700  PRINT N$(86)
  67. 702  PRINT N$(87)
  68. 703  FOR X = 0 TO 9:AZ(X) = 0:AZ$(X) = "": NEXT 
  69. 704  FOR X = 1 TO 5: IF I$(X) = IT$(10)  THEN C1 = 1
  70. 705  IF I$(X) = IT$(11)  THEN C1 = 2
  71. 707  NEXT 
  72. 712 L = 31371: GOSUB 100: CALL 36400
  73. 713 L = 31289: GOSUB 100:X = 110:Y = 110: GOSUB 120: CALL 36361
  74. 715  GOSUB 52
  75. 720  GOSUB 140
  76. 730  PRINT "THERE IS A GROUP OF ALIENS HERE."
  77. 735  IF Z = 20  THEN  GOSUB 997: IF C$ = N$(88)  THEN  PRINT N$(89): GOTO 720
  78. 740  IF Z = 4  THEN  GOSUB 997: IF C$ = "GLAS"  OR C$ = "EVER"  THEN  IF C1 = 1  THEN  GOTO 800
  79. 743  IF Z = 4  THEN  IF C$ = "FISH"  OR C$ = "EVER"  THEN  IF C1 = 2  THEN  GOTO 850
  80. 745  IF Z = 4  THEN  IF C$ = "EVER"  THEN  GOTO 900
  81. 746  IF Z = 4  THEN  IF C$ = "WALL"  THEN  PRINT N$(91): GOTO 720
  82. 747  IF Z = 4  THEN  GOSUB 1030:S = 1
  83. 750  FOR X = 2 TO 5: IF I$(X) < >""  THEN C2 = 1: GOTO 755
  84. 752  NEXT : GOTO 900
  85. 755  IF Z = 5  OR Z = 14  OR Z = 19  OR Z = 23  THEN  PRINT "THE ALIENS WILL NOT LET YOU LEAVE.": GOTO 720
  86. 760  IF CZ = 1  THEN CZ = 0:S = 0: GOTO 712
  87. 765  IF Z = 12  THEN  GOSUB 997: IF C$ = "ALIE"  THEN  PRINT N$(92);: GOTO 720
  88. 770  IF Z = 7  THEN  PRINT N$(93): GOTO 720
  89. 772  IF Z = 11  THEN  GOSUB 997: IF C$ = "ALIE"  THEN  PRINT N$(94):L = 31289: GOSUB 100:X = 130:Y = 110: GOSUB 120: CALL 36361: FOR X = 1 TO 8000: NEXT : GOTO 1140
  90. 790  IF S = 0  THEN  GOSUB 250
  91. 792 S = 0: GOTO 720
  92. 800  POKE  -16303,0: HOME 
  93. 802  VTAB 1: HTAB 12: FLASH : PRINT "CONGRATULATIONS": NORMAL 
  94. 804  VTAB 3: HTAB 1
  95. 806  PRINT "THE ALIENS SEE THE FISH AND ARE VERY    THANKFUL TO YOU.  THEY WERE ON A MISSIONTO EARTH TO FIND A CERTAIN TYPE FISH,   WHICH THEY HAD BEEN SEARCHING THE       GALAXIES FOR, TO RENOVATE THEIR FOOD"
  96. 808  PRINT "SUPPLY.  THEIR SHIP MALFUNCTIONED JUST  AFTER THEY OBTAINED THE FISH."
  97. 810  PRINT 
  98. 812  PRINT "FOR YOUR VALOR IN ADVENTURING TO GET THEFISH SAFELY TO THEM, YOU ARE GIVEN A    HERO'S WELCOME ON THEIR PLANET."
  99. 814  PRINT 
  100. 816  PRINT "IN EXCHANGE FOR THE FISH, THEY GIVE YOU SOMETHING IN RETURN WHICH WILL BE OF    HELP ON YOUR FURTHER ADVENTURES."
  101. 818  PRINT 
  102. 820  PRINT "YOU ARE TRANSPORTED BACK HOME."
  103. 830 SW = 1: VTAB 23: HTAB 1
  104. 832  FOR X = 1 TO 5: IF I$(X) = IT$(10)  THEN I$(X) = "EXPERIENCE AS AN ADVENTURER"
  105. 834  NEXT 
  106. 836 L = 26624: GOSUB 100: CALL 36400
  107. 840  GOSUB 140
  108. 842  IF S = 0  THEN  PRINT "YOUR ADVENTURE IS OVER.  YOU MAY CHECK  INVENTORY OR PRESS 'Q' TO QUIT."
  109. 845 S = 0: GOTO 840
  110. 850  POKE  -16303,0: HOME 
  111. 852 SW = 1
  112. 854  VTAB 6: HTAB 1
  113. 860  PRINT "THE ALIENS ARE UPSET WHEN THEY SEE THE  DEAD FISH.  YOU ARE TRANSMITTED HOME."
  114. 865  VTAB 22: HTAB 1
  115. 870  GOTO 1140
  116. 900  POKE  -16303,0: HOME 
  117. 902 SW = 1
  118. 910  VTAB 6: HTAB 1
  119. 920  PRINT "YOU ARE NOT CARRYING WHAT THE ALIENS ARELOOKING FOR.  YOU ARE TRANSMITTED HOME."
  120. 930  GOTO 865
  121. 997 C$ = B$: IF  LEN(B$) <4  THEN C$ = B$ +"XXXX"
  122. 998 C$ =  LEFT$(C$,4): RETURN 
  123. 1000  GOSUB 997
  124. 1001  FOR X = 1 TO 9: IF  LEFT$(C$,4) =  LEFT$(AZ$(X),4)  THEN  GOSUB 1010:AZ$(X) = "":AZ(X) = 0: PRINT "O'K":GT = 1: RETURN 
  125. 1002  NEXT 
  126. 1008  PRINT N$(36): RETURN 
  127. 1010  FOR Y = 1 TO 5: IF I$(Y) = ""  THEN I$(Y) = AZ$(X): RETURN 
  128. 1012  NEXT : PRINT N$(37): POP : RETURN 
  129. 1020  FOR X = 1 TO 5: IF I$(X) < >""  THEN  PRINT I$(X)
  130. 1022  NEXT : RETURN 
  131. 1030  GOSUB 997
  132. 1031  IF C$ =  LEFT$(IT$(1),4)  THEN  PRINT N$(38): RETURN 
  133. 1032  FOR Y = 1 TO 5
  134. 1033  IF C$ =  LEFT$(I$(Y),4)  THEN  GOSUB 1040
  135. 1034  NEXT Y: PRINT N$(39): RETURN 
  136. 1040  FOR YX = 0 TO 15: IF I$(Y) = IT$(YX)  THEN  GOSUB 1050
  137. 1042  NEXT YX: RETURN 
  138. 1050  FOR YZ = 1 TO 8: IF AZ(YZ) = 0  THEN AZ(YZ) = YX:AZ$(YZ) = IT$(YX): PRINT "0'K":I$(Y) = "": POP : POP :CZ = 1: RETURN 
  139. 1052  NEXT YZ: RETURN 
  140. 1060  GOSUB 997
  141. 1061  FOR Y = 0 TO 3
  142. 1062  IF C$ =  LEFT$(P$(Y),4)  THEN  PRINT  MID$ (P$(Y),6, LEN(P$(Y)));: GOTO 1065
  143. 1064  NEXT : GOTO 1070
  144. 1065  PRINT " WITH ": FOR Y = 1 TO 9: IF AZ$(Y) < >""  THEN  PRINT AZ$(Y);" ";
  145. 1066  NEXT : PRINT : RETURN 
  146. 1070  FOR Y = 1 TO 5: IF C$ =  LEFT$(IT$(4),4)  THEN  IF I$(Y) = IT$(4)  THEN  PRINT N$(41): RETURN 
  147. 1071  NEXT 
  148. 1072  FOR Y = 1 TO 5: IF C$ =  LEFT$(I$(Y),4)  THEN  PRINT N$(42): RETURN 
  149. 1073  NEXT 
  150. 1075  FOR Y = 1 TO 9: IF C$ =  LEFT$(AZ$(Y),4)  THEN  PRINT N$(43): RETURN 
  151. 1076  NEXT 
  152. 1078  PRINT N$(44): RETURN 
  153. 1080  PRINT N$(45): RETURN 
  154. 1132  FOR Y = 1 TO 5: IF C$ =  LEFT$(I$(Y),4)  THEN GT = 1: RETURN 
  155. 1133  NEXT : PRINT N$(39): RETURN 
  156. 1140 L = 26624: GOSUB 100: CALL 36400: PRINT N$(51)
  157. 1144  PRINT N$(52);: GET A$: IF A$ = "Y"  THEN  PRINT : PRINT  CHR$(4);"RUN GAME1"
  158. 1148  IF A$ = "N"  THEN  PRINT  CHR$(4)"RUN KICK.IT.OFF"
  159. 1150  PRINT : GOTO 1144